www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/saveclientinfo.asp

    <!-- #include file="config.asp" -->
<%
if session("gotclientinfo")<>true then
	Dim cn
	Dim os,browser,screenwidth,screenheight,sourceaddr

	'Get Parameters
	os=Request.QueryString("sys")
	browser=Request.QueryString("brow")
	screenwidth=Request.QueryString("sw")
	screenheight=Request.QueryString("sh")
	sourceaddr=Request.QueryString("src")

	'Verify Parameters
	if len(os)>25 then os=left(os,25)
	if os="" then os="未知"

	if len(browser)>16 then browser=left(browser,16)
	if browser="" then browser="未知"

	if isnumeric(screenwidth)=false or len(cstr(screenwidth))>9 then screenwidth=0 else screenwidth=abs(clng(screenwidth))
	if isnumeric(screenheight)=false or len(cstr(screenheight))>9 then screenheight=0 else screenheight=abs(clng(screenheight))
	if screenwidth=0 or screenheight=0 then
		screenwidth=0
		screenheight=0
	end if

	if len(sourceaddr)>50 then sourceaddr=left(sourceaddr,50)
	if sourceaddr="" then sourceaddr="收藏夹或手动输入"

	'Filter Parameters
	os=replace(replace(os,"'","''"),"[","[[]")
	browser=replace(replace(browser,"'","''"),"[","[[]")
	sourceaddr=replace(replace(sourceaddr,"'","''"),"[","[[]")

	'Save Parameters
	set cn=server.CreateObject("ADODB.Connection")
	CreateConn cn,dbtype
	cn.Execute "INSERT INTO stats_clientinfo(os,browser,screenwidth,screenheight,timesect,sourceaddr) VALUES('" &os& "','" &browser& "'," &screenwidth& "," &screenheight& ",#" &now()& "#,'" &sourceaddr& "')",,1

	'Got Complete
	session("gotclientinfo")=true
end if
%>